home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / cucd / programming / amoslist / amoslist.mar / 000116_amos-request@svcs1.digex.net_Mon Mar 17 08:31:39 1997.msg < prev    next >
Text File  |  1997-04-01  |  9KB  |  214 lines
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail1.access.digex.net (8.8.5/8.8.5) with ESMTP id IAA01258
  3.     for <mcox@access.digex.net>; Mon, 17 Mar 1997 08:31:36 -0500 (EST)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id FAA09697
  6.     for amos-out; Mon, 17 Mar 1997 05:08:58 -0500 (EST)
  7. Received: from mail2.access.digex.net (mail2.access.digex.net [205.197.247.3])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id FAA09694
  9.     for <amos-list@svcs1.digex.net>; Mon, 17 Mar 1997 05:08:57 -0500 (EST)
  10. Received: from f14.hotmail.com (F14.hotmail.com [207.82.250.25])
  11.     by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id FAA00396
  12.     for <amos-list@access.digex.net>; Mon, 17 Mar 1997 05:08:55 -0500 (EST)
  13. Received: (from root@localhost) by f14.hotmail.com (8.7.5/8.7.3) id CAA11374; Mon, 17 Mar 1997 02:08:24 -0800 (PST)
  14. Date: Mon, 17 Mar 1997 02:08:24 -0800 (PST)
  15. Message-Id: <199703171008.CAA11374@f14.hotmail.com>
  16. Received: from 193.214.146.22 by www.hotmail.com with HTTP;
  17.     Mon, 17 Mar 1997 02:08:24 PST
  18. X-Originating-IP: [193.214.146.22]
  19. From: " Ragnar  Fyri" <ragnar_fyri@hotmail.com>
  20. To: amos-list@access.digex.net
  21. Subject: Transition effects part 3
  22. Content-Type: multipart/mixed; boundary="====================987654321_0==_"
  23. X-Attachment: textfile.txt
  24. Status: RO
  25. X-Status: 
  26.  
  27.  
  28. --====================987654321_0==_
  29. Content-Type: text/plain 
  30.  
  31.  
  32.  
  33. ---------------------------------------------------------
  34. Get Your *Web-Based* Free Email at http://www.hotmail.com
  35. ---------------------------------------------------------
  36.  
  37. --====================987654321_0==_
  38. Content-Type: text/plain; name="textfile.txt"
  39. Content-Disposition: attachment; filename="textfile.txt"
  40.  
  41.   Okay, here we go again. I have caught up with my mailing list backlog, so
  42. after I post this I'll subscribe for  a  couple of days again to see what's
  43. going on right now. The rest of the  revelations  will have to wait until I
  44. download the archive file at the end  of  the month. (Someone's still doing
  45. them, right? Well, how  about  editing  them  a bit better? I don't want to
  46. waste time downloading 50 K of "this  message  was  composed with program X
  47. and routed through Y, Z  and  W".  Just  the  messages,  date,  sender, and
  48. subject please. (So Tom sent his  message  to Dick and Harry in addition to
  49. the list - who cares?? [Dick and Harry, perhaps, but they know already!]))
  50.  
  51.   Looking through some old archives  reminded  me  of something I have been
  52. trying to figure out.  I  have  a  program  with  bobs  that  I  want to be
  53. transparent in some places and  opaque  in  others. (The background colour,
  54. that is.) Does anyone know anything about  editing bob masks manually? (I'm
  55. not asking if it's possible - the mask is data, and data can be changed!)
  56.  
  57.   Another question before we start  with  the  answers :-) : Can anyone out
  58. there  write me a  small  MC  routine?  I  don't  want an extension, just a
  59. little routine to put in a bank.  To  give  you  a better idea about what I
  60. want, this is for the Quest  mapper  I  mentioned  in  my first mailing. It
  61. stores map data  as  16  bit  integers  (to  be  compatible  with  an older
  62. AmigaBasic version, and because it only needs 16bits anyway), but as we all
  63. know (?) Amos uses 32 bit integers. I handle  the conversion by loading the
  64. file into a bank and then using a loop  to Deek the data into an array, and
  65. when it's time to save I Doke the data back into the bank and save it. This
  66. is faster than what the AB program  did  (It  used Cvi and Mki, reading and
  67. writing two bytes at a time), but still slow. MC would be faster of course.
  68. If that isn't enough of a challenge for  you, my loading routine also draws
  69. an overview map on the screen while  loading.  (Nothing fancy, just isolate
  70. the terrain type data and plot a dot of  that colour) All maps are the same
  71. size, so it should only be necessary  the  call the routine and give it the
  72. starting addresses of the array  and  the  bank.  And, of course, a flag to
  73. tell whether it  should  do  2-to-4  or  4-to-2.  Or  maybe  two  different
  74. routines...
  75.  
  76.   Of course I could just get rid of the array  (saving a lot of memory) and
  77. r/w the data directly to and from he bank when needed, but I don't know how
  78. fast that would be. Anyone got experience with this?
  79.  
  80.   Okay, time for som more effects! I'll start with a nonstandard one I call
  81. FancyFlip.
  82.  
  83. Hide On
  84. Screen Open 0,320,256,8,Lowres : Curs Off
  85. Screen Open 1,320,256,8,Lowres : Curs Off
  86. Wait Vbl : Dual Playfield 0,1
  87. Screen 0 : Cls 0
  88. '
  89. 'Make first screen
  90. '
  91. Screen 1 : Paper 0 : X=0 : For A=0 To 7
  92.    Ink A : Bar X,0 To X+40,255 : Add X,40
  93. Next
  94. Pen 3 : Locate ,16 : Centre Border$("This is just a test.",2)
  95. Wait 150
  96. '
  97. 'Cover it up
  98. '
  99. Screen 0 : Ink 1
  100. For A=0 To 287
  101.    Draw 0,A To A,0
  102.    Draw 319,255-A To 319-A,255
  103. Next
  104. '
  105. 'Make second screen
  106. '
  107. Screen 1 : Y=0 : For A=0 To 7
  108.    Ink A : Bar 0,Y To 319,Y+32 : Add Y,32
  109. Next
  110. Pen 3 : Locate ,16 : Centre Border$("This is still just a test.",2)
  111. '
  112. 'Show it
  113. '
  114. Screen 0 : Ink 0
  115. For A=287 To 0 Step -1
  116.    Draw 319,A To 319-A,0
  117.    Draw 0,255-A To A,255
  118. Next
  119. Wait 150
  120. '
  121. 'One more time!!
  122. '
  123. Screen 0 : Ink 1
  124. For A=0 To 287
  125.    Draw 0,A To A,0
  126.    Draw 319,255-A To 319-A,255
  127. Next
  128. '
  129. 'Make new second screen
  130. '
  131. Screen 1 : Cls 0
  132. Pen 3 : Locate ,16 : Centre Border$("Can't you hear what I'm saying??",2)
  133. Ink 3 : Paint 0,0
  134. '
  135. 'Show it
  136. '
  137. Screen 0 : Ink 0
  138. For A=287 To 0 Step -1
  139.    Draw 319,A To 319-A,0
  140.    Draw 0,255-A To A,255
  141. Next
  142. Wait 200 : Edit
  143.  
  144.   For those who weren't  around  last  time  (Welcome  to  the list, by the
  145. way!), the "nonstandard"  thing  is  just  that  this  is  nota routine for
  146. switching from any picture to any other picture, though it can be made into
  147. one of those with a bit of work. (But you  can only use pics that would fit
  148. into the back of a dual playfield, which is a bit limiting.)
  149.   And yes, it repeats the  same  code  twice,  but  it's  just  something I
  150. slapped together to see what  it  looked  like.  Let me know if you find it
  151. interesting enough to demand a structured version...
  152.  
  153.   Next is one of my "standard"  routines,  as before requiring two pictures
  154. of the same resolution and size, and  preferably  the same palette as well.
  155. To use the program as it  is,  you  should  have  the  pics packed into two
  156. banks, or you could modify it to  load  any  two files you want ech time it
  157. runs. The first part of the program (down  to "Ordnes in allung", which BTW
  158. is German for everything in  order"  spelled  sideways)  is exactly (?) the
  159. same as in my last program, but I'm including  it for the sake of complete-
  160. ness and in case there should  be  any  newcomers  who  didn't get the last
  161. chapter. This one's called FancyWipe.
  162.  
  163. Set Buffer 1000
  164. SAV_IT=False : Rem Ch<HTML><HEAD><TITLE>404 Not Found</TITLE></HEAD>
  165. <BODY><H2>404 Not Found</H2>
  166. URL '/ttrl/T_Equalizers.Lha' cannot be found.
  167. <P>Please refer to <A HREF="http://www.homepages.demon.co.uk/errors/404.html">
  168. http://www.homepages.demon.co.uk/errors/404.html</A> for a list of possible
  169. causes for this error.
  170. <HR>
  171. <A HREF="http://www.demon.net/"><IMG
  172. SRC="http://www.homepages.demon.co.uk/icons/demon/demon.gif" ALT="Demon
  173. Internet" ALIGN=right WIDTH=106 HEIGHT=35></A><ADDRESS><A
  174. HREF="http://www.acme.com/softwareange to True to store pictures!
  175. Curs Off : Print : Centre "Wait for first picture,"
  176. Print : Centre "press a key to switch!"
  177. Print : Centre "Press a key again to quit."
  178. Hide On : Auto View Off
  179. Unpack 6 To 2 : Screen Hide 2
  180. SW1=Screen Width : SH1=Screen Height : SC1=Screen Colour
  181. Unpack 7 To 3 : Screen Hide 3
  182. SW2=Screen Width : SH2=Screen Height : SC2=Screen Colour
  183. If SW1<>SW2 or SH1<>SH2 or SC1<>SC2
  184.    Default : Print "Mismatch!!"
  185.    Print 
  186.    Print "SW1=";SW1,"SW2=";SW2
  187.    Print "SH1=";SH1,"SH2=";SH2
  188.    Print "SC1=";SC1,"SC2=";SC2
  189.    End 
  190. End If 
  191. '
  192. 'Ordnes in allung
  193. '
  194. Screen Open 0,SW1,SH1,SC1,Lowres
  195. Curs Off : Flash Off
  196. Screen To Front 0
  197. Screen Copy 2 To 0 : Screen 0 : Get Palette 2
  198. Auto View On : Wait Key
  199. T=Timer : C=100
  200. If SAV_IT Then Save Iff "t:"+Str$(C) : Inc C
  201. Screen 0 : Fade 12 To 3
  202. For A=0 To SW1-4 Step 2 : B=SW1-A-3
  203.    Screen Copy 3,A,0,A+1,SH1 To 0,A,0
  204.    Screen Copy 3,B,0,B+1,SH1 To 0,B,0 : Wait Vbl
  205.    If SAV_IT Then Save Iff "t:"+Str$(C) : Inc C
  206. Next 
  207. TT=Timer-T : Wait Key
  208. Default : Print TT/50;",";Mid$(Str$(TT mod 50),2);" seconds!"
  209.  
  210.   Right, the last two lines are also the  same... This took about 3
  211. --====================987654321_0==_
  212. Content-Type: text/plain
  213.  
  214. --====================987654321_0==_--